<%@ Page language="vb" CodeFile="test.aspx.vb" Inherits="test_aspx_vb" %>

<%@ Import Namespace="System.Net.Mail" %>
<%
    
    myMail = New MailMessage()
    myMail.From = New MailAddress(ConfigurationManager.AppSettings("costreportFrom"))
    Dim replacing As String
    replacing = ConfigurationManager.AppSettings("costreportTo")
    If replacing <> "" Then
        Dim strToArray As String()
        strToArray = replacing.Split(",")

        Dim ToInt As Integer = strToArray.Length
        Dim Tocount As Integer = 0

       
        myMail.To.Add("johan.wolff@unibase.se")
        
        
        
    End If

    myMail.Subject = "Cost report - FLS"
    myMail.IsBodyHtml = True
    myMail.Body = "testning"
    SendmailMailMessage(myMail)
   
%>
